Top 10k strings from Star Seeker (1987)(Mirrorsoft).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
21
3 tt,ZE;F$;F$;
3 XMID,YMID,RAD:
3 B$="It"+b$(5
2 z$=z$+y$(TW
2 t$="."+t$(TW
2 pos;z$''" Is this what you want? (Y/N)":
2 pos;nn;" and ";nx:
2 o$="Year? (1800,2200): ":
2 o$="Time-GMT? (0000-2359):":
2 o$="Month? (1,12): ":
2 o$="Longitude? (-180,180) ":
2 o$="Latitude? (-90,90) ":
2 o$="Day of month? (1-"+
2 nn=-TW*NT:
2 mx=n(mon):
2 mx+"): ":
2 line=line+ON
2 l$=l$+d$(N3-TW*(lat>ZE))
2 days=days+day:
2 day+" "+m$(
2 b5=TC0+TC1*b4+TC2*b4*b4:
2 b1=yr-1900
2 Y1=YM+SIZ*((M=11
2 WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111122222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000
2 TW,TW;"Which day of the month?"'''" e.g. 11"
2 TW,TW;"The number you chose was"''
2 TW,TW;"That is not a valid time"'" (Too many minutes)":
2 TW,TW;"That does not lie in the"'" proper range"
2 TW,TW;"Now the month; please give me"'" a whole number between 1 and"'" 12."'''" For example, 10 for October."
2 TW,TW;"Give the date on which the"'" observation will be (or was) made."
2 TW,N3;"What is your latitude (in"'" degrees)?"''
2 Side B - Solar System
2 Side A - Star Seeker
2 Press any key to continue
2 ON;"IMPORTANT";
2 O$=O$+U$(2
2 NUM=.06571
2 LST=LST1+LON/15
2 LST1=-LON/15
2 K(TW)=K(TW)+TW
2 JxT8D<Dx 8
2 H1=H1-NUM:
2 B<(x@<@< x
2 AndApsAqrAqlAraAriAurBooCncCVnCMaCMiCapCarCasCenCepCetCirColCrBCrvCrtCruCygDelDorDraEquEriForGemGruHerHorHyaHyiIndLacLeoLMiLepLibLupLynLyrMonMusOctOphOriPavPegPerPhePicPscPsAPupPyxRetSgeSgrScoSctSerTauTelTriTrATucUMaUMiVelVirVol
2 ? ";X'Y'Z:
2 ;"this latitude":
2 ;" LOADING-PLEASE WAIT "
2 ;" ";
2 ,pos;m$''" Is that the month you want?";
2 )+" (GMT)"
2 (X*X+Y*Y):
2 (HH+hr)+t$:
2 (HF+num-hr*HH):
2 '''" Please select a number between ";
2 ''" First, the year: anytime"'" between 1800 and 2200."''" e.g. 1950"
2 ''" Your answer should be of the form hhmm,";
2 ''" For example, the longitude"'" of Central London is -0.1"'" degrees."
2 '" For example, the latitude"'" of London is 51.5 degrees."
2 "January","February","March","April","May","June","July","August","September","October","November","December"
2 " where hh denotes"'" the hour (on a 24 hour clock)"
2 " for places lying west of"'" the Greenwich meridian."
2 " corresponding to places in"'" the southern hemisphere."''
2 " and mm the number of minutes past the hour."
2 " The answer you give should"'" lie between the limits -90"'" and +90, negative numbers"
2 " The answer you give should lie between -180 and 180 where negative numbers are"
2 MGN 1985":
1 |Sb'*td-3.762863
1 zmax=(dec2>90
1 ze;'"Press ""E"" for an explanation"
1 ze,n4;A$+" "+T$
1 z0=lats*al0s+latc*al0c*az0c
1 z$=z$+y$(tw
1 yh=-al0s/al0c:
1 y0=lsts*p0+lstc*q0:
1 y*lstc<x*lsts
1 x0=lstc*p0-lsts*q0:
1 v$=d$(bd+ON+
1 um"Triangul
1 um Venaticorum
1 um Australis
1 u=-sd*slat/(clat*cd):
1 u$=u$+y$(TW
1 u$="This is the"+q$(rank-1
1 u$="This is the brightest star":
1 u$="It"+u$(5
1 tw;"gives views of the night sky from any point on the surface of the Earth, at any time from 1800 to 2200."
1 tw,n4;"Lon: "+K$+" Lat: ";l$
1 tt,n5;"THAT'S THE SUN"'J$:
1 tt,n5;"THAT'S AN OLD POSITION"'J$:
1 tt,n5;"NOTHING THERE - TRY AGAIN":
1 tt,ZE;F$;F$:
1 tt,ZE;"To continue, press one of"'" S,I,O,M P or E(xplanation)":
1 tt,ZE;"Press ""E"" for explanation":
1 t333)/Q9):
1 slt=z*lats+latc*pq:
1 sl=-rs/n(FT,N3):
1 set=set-T4*
1 sd=sine*sl:
1 scl=f(NUM):
1 s333+2.17147
1 rise=rise-T4*
1 rise=-lon/FT+12
1 rd=n(FT,q):
1 rd=n(FT,Q):
1 q1=al0s*az0s:
1 q0=al0c*az0s:
1 q#p#w#s#r#
1 pq=x*lstc+y*lsts:
1 p1=al0c*latc+al0s*az0c*lats:
1 p0=latc*al0s-lats*al0c*az0c:
1 o$="Your second choice? ":
1 o$="Your first choice? ":
1 o$="Your choice?":
1 o$="Timestep required? ":
1 o$="Size of field? (5-90):":
1 o$="Required scale?: ":
1 o$="Please make your choice":
1 o$="How many? (1-9999)":
1 o$="Azimuth? (0-360): ":
1 o$="Altitude? (0-90): ":
1 nupd=-ON+TW*(i$="1"):
1 num=num+365
1 num=num*tw*
1 num=days+1
1 num=N4*(alp-FT*lhr):
1 num=ALP-15
1 num=(sine*lats+COSE*LSTS*LATC)*
1 nst ;nst;B$(
1 norise=ON:
1 nm=nm-.8611
1 nm=151.950429
1 nlist=9140
1 nis Minoris
1 nam=nam-128
1 n5;"S to change the scale"''
1 n5;"P sends the display to A";
1 n5;"O for motions of all bodies"
1 n5;"M to return to main menu"
1 n5;"I for information on any";
1 n4,ZE;"Press:"'';
1 n3;"generally the same as local"'" time (even at Greenwich)."
1 n3;"1 To follow a single body"''
1 n3;"0 For all 10 bodies"
1 n$="HALLEY"
1 mx=D(mon):
1 mon=mon+ON:
1 mn=mn+inc:
1 mm=num+eg-wg:
1 mm=mm+ev-ae-a3:
1 mm=lm-.111404
1 mas=.98564733
1 lsun=ecc*tw*
1 lst=lst-T4*
1 lst=lst-24
1 lst=lst+inc*TF:
1 lst1=lc1*(24
1 lst1=(lc1-ON)*(T4*days+gmt)+gmt+b7
1 lm=lm+ev+ec-ae+a4:
1 lm=lm+.6583
1 lm=13.1763966
1 line,ON;n$;:
1 lhr+"hr ":
1 k(TW)=k(TW)+TW
1 k(TW)=65202
1 k(TW)=65200
1 k(TW),k(ON)-HI*
1 k(ON)=cyz:
1 k(ON)=cyy:
1 k(ON)=cyx:
1 k(ON)=cxz:
1 k(ON)=cxy:
1 k(ON)=cxx:
1 k(ON)=(ON+k(ON))/A1:
1 k$=k$+d$(N4-TW*(lon>ZE))
1 k$=k$+d$(4
1 inc=i(m-64
1 i Australis
1 hr=hr+dhr:
1 gmt=hr+mn/SX
1 es Venatici
1 e Borealis
1 delt=az0-NT*bd:
1 dec2=dec+fw:
1 dec1=dec-fw:
1 days=days+n(i):
1 days=days+d(i):
1 day=day+ON:
1 cyz=(al0c*lats-latc*al0s*az0c)
1 cyy=(p1*lsts-q1*lstc):
1 cyx=(p1*lstc+q1*lsts):
1 cxz=-latc*az0s
1 cxy=az0s*lats*lsts+az0c*lstc:
1 cxx=-az0c*lsts+az0s*lats*lstc:
1 cl=-rc/n(FT,N3)
1 caz=(z*latc-pq*lats)/
1 c$="STEP 0":
1 b$=d$(bd+ON):
1 b$);"in ";b$
1 az0=NT*TW:
1 az0=(i-ON)*NT:
1 al0=NT/TW:
1 ZE;"Age of Moon:";
1 ZE,ZE;f$;g$:
1 ZE,ZE;G$;F$:
1 ZE,TW;b$;" ";kn;Z$:
1 ZE,ON;"CURRENT OBSERVING PARAMETERS";
1 ZE,N4;DAY;" ";M$(
1 ZE,N4;A$;" ";T$
1 ZE,N4;A$;" ";T$:
1 ZE+U$+" DAYS":
1 ZE+"NEW NUM IS?"
1 ZE'''"SOLAR SYSTEM is a program which provides information on the Sun,Moon, planets and Halley's Comet"
1 Z=CB*SM*SINE+COSE*SB
1 Z=-ON+A1*(
1 Z$=" STAR":
1 YR=J3-4715
1 Y=CB*SM*COSE-SINE*SB:
1 Y=-ON+A1*(
1 Y$=" "
1 XMD-ON,YMD:
1 XMD,YMD-ON:
1 XMD,YMD+ON:
1 XMD+ON,YMD:
1 XMAX=(DEC2
1 X=-ON+A1*(
1 X1=XM+SIZ*((M=9
1 X1=XM+SIZ*((M=56
1 X*LSTS>Y*LSTC
1 WH;F$;G$;G$;F$:
1 WH;"THE SUN IS UP"
1 V$="SCALE 2":
1 V$="SCALE "+
1 U=(LM-NM)/Q7:
1 U$="It"+u$(5
1 U$="109 ":
1 U$=" "+U$+" ":
1 Timestep required? U
1 Time-GMT? (0000-2359):T
1 This star is in fact double. Thesystem (which probably includes a third star about a minute of arc away) lies 370 light years distant.nSpica is the 15th brightest starin the sky. It is an eclipsing binary, and is 220 light years from the Sun.
1 This star is a double, and the two components are so close thatgravity has pulled them out of shape. The magnitude varies from3.1 to 4.0.
1 This is a close visual binary.?Altair lies 16 light years away.It is the 11th brightest star.
1 The distance of Betelgeuse is reckoned to be 520 light years.
1 TW,ZE;"Longitude:";
1 TW,TW;"What size of field would you like? Permitted values lie between 5 and 90 degrees."
1 TW,ON;t$;" ":
1 TW,N3;"What is your longitude (in"'" degrees?"''
1 TW,N3;"What is your longitude (in"'" degrees)?"''
1 TT,ze;"Scale factor? :";
1 TT,ze;"How many copies? (1-9)":
1 TT,ZE;F$;F$;
1 TT,ZE;F$'F$:
1 TT,ZE;'w$:
1 TT,ZE;'J$:
1 TT,ZE;'"Press ""S"" to stop the motions":
1 TT,ZE;"Your choices now are F,I,C and P"'w$:
1 TT,ZE;"Do you wish to send this to the printer? (Y/N)"
1 TN,on;"Latitude:",l$'" Longitude:",k$''" Date",a$''" Time",t$:
1 TN,TW;"3 For information on the moon"
1 TD=TD-GMT/T4:
1 TD=TD+DDAY:
1 TD=TD+DAYS+gmt/24
1 TD=(YR-1980
1 Sun routine
1 Star Seeker
1 Sirius, (also known as the "Dog Star"), is the brightest star inthe sky. It is quite close, onlysome 8.7 light years away.
1 Sirius is a double star system; its dim companion was the first White Dwarf star ever discoveredzCanopus is the second brightest star in the sky; only Sirius is brighter. Its distance is not known with any certainty.
1 STS
1 STP
1 STC
1 STAR
1 SOS
1 SOP
1 SOLAR
1 SOC
1 SL=-RS/N(FT,N3):
1 SET=FAC*ST1/(FAC+ST1-ST2)
1 SET=(SET-NUM)/LC1
1 SB=.089683442
1 Rigel is a blue supergiant, and one of the most luminous of all stars. Its great distance (900 light years) means that it seemsto be only the 6th brightest as seen from earth.
1 Rigel is a visual binary, with a separation of 9 seconds of arc
1 Regulus is the faintest of the 21 first magnitude stars. It is a visual binary, 84 light years away, and its components are 3' of arc apart.
1 Rasalhague
1 RISE=RT1*FAC/(FAC+RT1-RT2):
1 RISE=(RISE-NUM)/LC1:
1 RISE))+.001
1 RD=N(FT,Q):
1 QQ=X*LSTC+Y*LSTS:
1 QQ,TOP-QQ:
1 QPerfect TZX sampled from the original cassette by Church of the Latter-Day Speccy
1 Q=-Z*LATS/LATC/
1 Procyon is the 8th brihtest starin the sky. It is a double star,with the companion being a WhiteDwarf.
1 Procyon is one of the closest ofbright stars, with a distance of11 light years from the SunPAchernar is the ninth brightest star and lies at a distance of 118 light years
1 Please press the appropriate keyS
1 Please press the appropriate keyJ
1 Piscis Austrin
1 Paul Phillips PhD, FRAS
1 PHASE=HF*(ON-
1 OQ-td*.0529539
1 ON;"changes, press the ""ENTER"" key";
1 ON;"STARSEEKER";
1 ON;"SOLAR SYSTEM";
1 ON;"Objects in inverse video may be visible to the naked eye";
1 ON;"MENU";
1 ON,TW;"ORBITS";
1 ON,ON;"What is your required azimuth?"'''" North is 0 (or 360) degrees,"''" East is 90,"''
1 ON,ON;"What is your required altitude?"'''" A value of 0 corresponds to"'" the horizon;"''" 90
1 ON,ON;"Please select a field of view"'''" N","To look north"''" S","To look south"
1 ON,N3;"Please choose from:"
1 ON,N3;"At what time do you want to make your observations?"''
1 ON,N3;"At what time do you wish to make the observation?";''
1 O$="OLDNUM WAS "+
1 NUM=OFFS+NUM:
1 NUM=NUM-80
1 NUM=.0657098
1 NST=NST+ON:
1 NORISE=ZE:
1 NORISE=ON:
1 N8,ZE;"Today, the Sun: ";
1 N8,ZE;"Moon rises: "'" ";z$''"Moon sets:"'" ";y$
1 N8,TW;"2 For times of sunrise/sunset"
1 N6,ZE;" Object";
1 N6)+" GMT":
1 N6)+" GMT"
1 N4,TW;"1 For full information on any of the planets, or on Comet Halley"
1 N4,N4;day;
1 N3;"This time must be Greenwich"'" Mean Time (GMT), which is not"
1 N3;"2 To follow a pair of bodies"
1 N3,tn;"SKY POSITIONS"
1 N3,on;"The cursor is moved by pressing the 5, 6, 7 and 8 keys."
1 N3,ZE;"The moon does not set today"
1 N3,ZE;"The moon does not rise today"
1 N3,ON;"Please indicate how many orbits you wish to follow"''"Press"''
1 N3);" ";YR;" ";T$:
1 N$="THE EARTH":
1 N$;N$''"Distance from the Sun";
1 Mirrorsoft
1 Miaplacidus
1 MON=J5-ON-12
1 MISSED-TRY AGAIN
1 MG=2.17147
1 MDY=29.5306
1 LSUN=nt+180
1 LSUN+LATC*LSTC*
1 LMOON=LMOON-tw*
1 LM=LM*(LM<SX)
1 LM=LM*(LM<60
1 LIN=LINE*(LINE
1 LIN,SM;b$:
1 LD=LD+(LM=SX):
1 LD=LD+(LM=60
1 K(TW)>CB-5
1 K(TW)=K(TW)-ON:
1 K(TW)=K(TW)+ON:
1 K(TW)=K(TW)+ON
1 K(TW)=60939
1 K(TW),Z*64
1 JD=JD+DDAY:
1 JC=JD+J1+1525
1 It is the 16th brightest star inthe sky, and its distance is 520light years.fPollux lies at a distance of 35 light years, and is the nearest Giant. It is the 17th brightest star.KFomalhaut is the 18th brightest star in the sky. It is 23 light years awayXMimosa is the 2nd brightest starin Crux, the 19th in the sky. Itis 490 light years away_Deneb is the 20th brightest starin the sky. It is very luminous,and lies 1600 lightyears away.
1 INK;'" Press ""E"" for an explanation"
1 INK;"How many copies? (1-9)":
1 H}G}H|H|Gx9x:w:w9
1 Hadar is the 10th most brilliantstar in the sky, and the second in Centaurus. It is a hot Blue Supergiant, 490 light years fromthe Sun.
1 H2=(H2-T4*
1 H2=(ALP-LON)/FT+U:
1 H2=(ALP-LON)/15
1 H1=T4+(ALP-LON)/FT-U:
1 H1=(H1-T4*
1 H1=(ALP-LON)/15
1 H$=" STEPSIZE"+
1 GMT=HF*T4:
1 GETLS Gets the lambda of the sun
1 FT;"THE EARTH":
1 FT,TW;"5 To display the Solar System"
1 FT,N4;"Should I verify the numbers"'" that you give me? (Y/N).":
1 DEC=X+Y/60
1 DEC=89.194167
1 DEC2=B+FW:
1 DEC1=B-FW:
1 DAYS=DAYS+ON:
1 DAY=JC-J4-
1 Cor Caroli
1 Consists of two full programs -
1 Cassiopeia
1 Capella is the seventh brighteststar in the sky. It is actually a triple system, dominated by a yellowish Giant. The distance ofCapella is 45 light years.
1 Canis Minor
1 Canis Major
1 COMET HALLEYO
1 CL=-RC/N(FT,N3)
1 C$="STEP "+
1 Betelgeuse is the 12th brighteststar. It is a Red Supergiant andan irregular variable, with a range 0.1-0.8 in magnitude.
1 Betelgeuse
1 B$=B$+" ("+E$+")"
1 B$="This is a triple star":
1 B$="This is a quadruple star":
1 B$="This is a double star":
1 B$=" STARS PLOTTED":
1 Antares is a visual binary, the main component of which is a RedSupergiant of enormous radius.
1 Alpha Centauri is a triple star system. The two main stars are much like the sun; the third is much fainter. This third star isthe closest star to the Sun, andhas the name "Proxima Centauri"wVega is the 4th brightest star in the sky. It is 26 light yearsaway. It is an optical binary, with a faint companioniArcturus is the fifth brightest star in the sky. It is an OrangeGiant, about 36 light years awayfrom us.
1 Algol was known to the Arabs as "the Demon", and was considered to be unlucky. It is a binary,and as one of the stars eclipsesthe other, Algol's magnitude is seen to drop quite rapidly from 2.15 to 3.3, before rising again
1 Aldebaran is a visual double, the seaparation being 10" of arc
1 Aldebaran (which means "the Eye of the Bull") is a Red Giant, 68light years away. It is the 13thbrightest star.
1 Acrux is the 14th brightest starin the sky.
1 ASUN=u*sd*slat+u*cd*clat*(cose*lstS*sl+lstC*cl):
1 ALPSUN=ALPSUN-TW*
1 ALPSUN=ALPSUN+
1 ALP=ALP-CI
1 ALP=33.9775
1 ALP=-ALP+180
1 AGE=AGE+MDY
1 AGE=(LM-LS)*MDY/CI:
1 A whole class of eclipsing pairsof this kind has been named the "
1 ?*td+64.975464
1 =q+2.17147
1 ;n$'''"Distance from the Sun ";cc*
1 ;g$;" ":
1 ;az0'"Altitude";
1 ;al0'''"Field of view";
1 ;a$'"Time:";
1 ;T$'''"Line of sight:"'"Azimuth:";
1 ;"your chosen field of view."
1 ;"updates"
1 ;"to get the new starmap.":
1 ;"suitable printer"
1 ;"sets at ";y$'
1 ;"rises at ";z$;
1 ;"displayed body"
1 ;"Your choice?: ":
1 ;"You will have to make changes.";
1 ;"V";'"present line of sight)"''" ____________"''"To check on current values";
1 ;"To change:";
1 ;"To change";
1 ;"This star never sets at";
1 ;"This star never rises at";
1 ;"There are no bright stars in";
1 ;"THE OPTIONS"''':
1 ;"THE GREEK ALPHABET":
1 ;"T"''"Geographical position";
1 ;"Should I verify the numbers"'" that you give me? (Y/N)":
1 ;"S 1 pixel"
1 ;"Press"''"Date of observation";
1 ;"P"''"Line of sight";
1 ;"L 10 pixels";
1 ;"I 4 pixels";
1 ;"FIELD ";p$
1 ;"D"''"Time of observation";
1 ;"Computing orbits..."
1 ;"Calculating Starmap...":
1 ;"COPY COMPLETED";'J$:
1 ;"Azimuth";
1 ;"Altitude";
1 ;"(variable)":
1 ;"(";lon;")"'"Latitude:";
1 ;"(";lat;")"'
1 ;" ":
1 4 This star is a member of the Hyades cluster6 This star is a member of the Pleiades clusterZCastor is a multiple system madeup of three close binaries (and so six stars altogether).
1 31 Dec 1984O
1 25 Nov 1984T
1 23.30 GMTY
1 21.30 GMTP
1 -slt*slt):
1 -TW*(lon>ZE))
1 -(MON>TW):
1 ,ze;"Are these values OK? (Y/N)":
1 ,ze;" When you have finished making changes, press the ENTER key"
1 ,ZE;"Your options: L,C,I,U,N,P,M(enu)"'w$:
1 ,ZE;"Your choice?: ":
1 ,ZE;"Press the ""S"" key to stop","the updates after the next plot":
1 ,ZE;"Longitude:";
1 ,ZE;"Latitude:";
1 ,ZE;"I SAID THAT ZERO WAS NOT ALLOWED":
1 ,ZE;"Do you want to send this to the printer? (Y/N)":
1 ,ZE;"Are these values OK? (Y/N)":
1 ,TW;"The Sun does not set today":
1 ,TW;"The Sun does not rise today":
1 ,TW;"LOOKING":
1 ,TW;"6 To change any or all of the observational parameters: date/time/location"
1 ,TW;"4 For a table of positions of Solar System bodies."
1 ,ON;"When you have finished making";
1 ,ON;"OVERHEAD";
1 ,ON;"ELEVATION":
1 ,N6*(ON+ZMIN):
1 ,N6*(ON+ZMAX):
1 ,N6*(ON+XMIN):
1 ,N6*(ON+XMAX)
1 ,N3;"VIEW":
1 ,N3;"Computing Moon orbit..."
1 ,(AGE<HF*mdy):
1 ,"Code=";nn
1 +NUM)+Y$+B$:
1 +K(TW),(100
1 +(i$="N")+2
1 *td-349.383063
1 *days+hr+mn/60
1 *b1+b2-HF)/36525
1 *b1+b2-HF)/(HH*Q9):
1 *CU*SU/(CU*CU+.99597032
1 *(xy-ld)):
1 *(lm-ls)/nt)
1 *(h+alpSUN)/
1 *(dec1<-90
1 *(alpSUN-h)/
1 *(SLAT*Z<ZE)
1 *(SEt-H1)):
1 *(Q-ON)+L):
1 *(LATS*Z<0
1 *(I$="E")+ORB*(I$="O")+RESTORE*(I$="M")
1 *(I$="C")+RESTORE*(I$="F")
1 *(DEC1<-90
1 )/36524.25
1 )+hr+mn/60
1 )+(dec2<90
1 )+(LINE>21
1 )+(DEC2<90
1 )+"brightest star":
1 )*(LINE-21
1 (xm,ym)=ZE
1 (tw*(lm-ls)/Q7-mm)
1 (sx*(RISE-H1)):
1 (rise/T4):
1 (on-SB*SB)
1 (k(ON)/HI):
1 (k(ON)/HI)
1 (horiz+ON):
1 (hh+lsec):
1 (hf+tn*mg):
1 (hf+hh*re);
1 (hf+hh*rd);
1 (hf+hh*n(FT,N3));
1 (f2+on),f1-256
1 (cl*cl+cose*cose*sl*sl)
1 (XM,YM)=ZE
1 (X1-XMID)*(X1-XMID)+(Y1-YMID)*(Y1-YMID)>RAD*RAD
1 (SX*(num-lm))
1 (SETT+HH):
1 (RIST+HH):
1 (RE*RD/N(9
1 (RE*RD*RD*RD):
1 (RE*RD*RD)):
1 (ON-sd*sd)
1 (LMOON/(tw*
1 (LAT-DECD)
1 (HF+tn*mg);" mag"
1 (HF+tn*age));" days";
1 (HF+tn*AZ)+cc:
1 (HF+amax);"
1 (HF+TD+JD0):
1 (HF+SX*(xy-ld)):
1 (HF+SX*(SET-
1 (HF+SX*(RISE-
1 (HF+HI*HI*imin):
1 (HF+HH*re):
1 (HF+HH*rd):
1 (H2/T4))/LC1
1 (H1/T4))/LC1:
1 (COSE*SL/CL):
1 (CC+num*CC):
1 (ALPSUN/(TW*
1 (AL*(U=NUPD)+4150
1 (.0040296791
1 (-SLAT*TAND/CLAT)
1 ((lm-ls)/Q7))
1 ((JD-1867216.25
1 ((JC-J4)/Q8):
1 ((JC-122.1
1 'N$;" does not set today":
1 'N$;" does not rise today":
1 '''';" For example, South-east is at 135 degrees."
1 '''"You will be asked to enter some"'"numbers (your longitude, etc.)."''"If you like, I will check each"'"entry with you before I accept"'"it permanently."
1 '''"You will be asked to enter some"'"numbers (your longitude, etc.)"''"If you like, I will check each"'"entry with you before I accept"'"it permanently."
1 '''"Please choose a scale factor forthe next plot: this should be a number between 1 and 10"
1 '''" Please give me the number of days between successive plots."
1 '''" 1 Mercury","5 Saturn"
1 ''"The Greek alphabet is given herefor reference:"'
1 ''"NB: At ";t$;" the sun is"'" above the horizon."
1 ''"Maximum altitude: ";
1 ''"Larger numbers give larger scaleplots, giving a less confused appearance to the centre of the display"
1 ''"Date:";
1 ''"Brightness:";
1 ''" When you have positioned the cursor over the desired object, press the ENTER key to obtain the name of the object, as well as its distances from the Sun and Earth"
1 ''" The number of pixels jumped by the cursor may be set to 1,4 or 10 by pressing the keys S, I or L respectively."
1 ''" This number should be a non- zero integer between -9,999 and 10,000."
1 ''" The program holds information on 500 stars in 76 different constellations, including all the most prominent."
1 ''" STARSEEKER is a program that";
1 ''" Please indicate whether you would like:"'''"1 A single update of the view"''"2 Continuous updating"''"3 To choose your own number of";
1 ''" E 1 day"
1 ''" 9 Comet Halley"
1 '"U To update this view of the sky"
1 '"To move the cursor, use the keys5, 6, 7 and 8 (the usual cursor"'"keys)"
1 '"The program can be used to find accurate sky positions of any ofthese bodies as seen at any timeand from any point on the Earthssurface."
1 '"The number of pixels jumped by"'"the cursor at each step can be"'"set by pressing the keys:"''
1 '"That is, Large, Intermediate, or"'"Small steps respectively"
1 '"Star rises at:",o$
1 '"Some additional informaion will further be given for some stars."'''" The catalogue name will always indicate the constellation to which the star belongs, and will"
1 '"R.A:",u$'"Dec: ",r$''
1 '"POSITION IN THE SOLAR SYSTEM":
1 '"POSITION IN THE SKY:"
1 '"P Sends the plot to the printer"
1 '"On ";a$;" ";n$'"
1 '"N To change any or all of these: date/time/place/field of view/ line of sight"
1 '"Magnitude: ",mag;:
1 '"L Lists all constellations with at least one star plotted and displays those constellations"
1 '"In addition, the program can be made to display the relative positions of the bodies within the Solar System at any time, and to follow their motions as they orbit the Sun."
1 '"I To obtain information on any of the plotted stars"
1 '"Field of view (for your";
1 '"(4) The magnitude of the star (ameasure of its brightness)."
1 '"(3) The times at which the star rises and sets, or whether it never does either when seen fromyour latitude;"
1 '"(2) The altitude and azimuth, & the equatorial coordinates (R.A.and declination) of the star;"
1 '"(1) One of its catalogue names, and sometimes a ""personal"" name"'"by which it may be more commonlyknown;"
1 '" Right Ascension :";z$:
1 '" 4 Jupiter","8 Pluto"
1 '" 3 Mars","7 Neptune"
1 '" 2 Venus","6 Uranus"
1 '" X","In order to pick","some other view":
1 '" E","To look east",,," W","To look west"''" O","To obtain the",,"overhead view"
1 '" Time of Observation";
1 '" This time must be Greenwich"'" Mean Time";
1 '" Geographical position";
1 '" Date of Observation";
1 #Astronomical Guide to the Night Sky
1 "also contain a second item that identifies it further; this is usually a Greek letter."
1 "You will be given the following information on the star you haveselected:"
1 "VARIABLE? ";Z:
1 "To obtain information on any of"'"the stars plotted, you should"'"place the cursor over that star"'"and press the ""enter"" key."
1 "Star sets at:",o$:
1 "STAR NO:";NUM;:
1 "MULT 0=SINGLE";Z:
1 "MERCURY","VENUS","MARS","JUPITER","SATURN","URANUS","NEPTUNE","PLUTO"
1 "MAG? ";Z:
1 "GPOS? ";Z:
1 "Distance from the earth";
1 "DUE NORTH","NORTH-EAST","DUE EAST","SOUTH-EAST","DUE SOUTH","SOUTH-WEST","DUE WEST","NORTH-WEST","DUE NORTH"
1 "DOESNT EXIST":
1 "CONST ABBR?";Z$
1 "COMET HALLEY"
1 "BRIGHTNESS:",dc*
1 "Azimuth :",u$'"Altitude :",r$
1 "All you ever wanted to know about the night sky" CRASH #380
1 "+v$+" OF "+b$:
1 " Distance from the sun: ";rd;
1 " Distance from earth: ";re;
1 " Declination :";z$''
1 " Azimuth:",z$:
1 " Altitude",z$
1 " -New Moon"
1 " -Full Moon"
1 " (GMT) which is not"'" generally the same as local"'" time, (even at Greenwich)."
1 " South is 180,"''" West is 270."
1 " Please select (by letter) one of the following time"'" intervals";''" A 15 minutes";''" B 30 minutes";''" C 60 minutes";''" D 120 minutes"
1 " A brief description of the"'" choices now open to you"'''"C For constellation maps"
1 " (WARNING: The Sun is up)"
1 rises at:",z$;" GMT"'"and sets at:",y$;" GMT"
1 lies directly overhead"
1 STARS PLOTTED
1 Mirror Group Newspapers 1984
1 Lyrae Variables".
1 Herculis is a triple system. Its magnitude varies between 3 &4. The main star is a Red Super-giant, possibly the largest starknown.
1 30 DAYSC
1 2nd 3rd
1 W
1 G
1
1